'Floormaper by Antoni Gual
' from Antoni8.bas (found in https://qb45.org/download.php?id=1076)
' BASIC Anywhere Machine port by Charlie Veniot
' This program exported from BASIC Anywhere Machine (Version [5.2.3].[2023.01.14.19.01]) on 2023.01.16 at 00.22
SCREEN _newimage(320, 200, 12)
2 r% = (r% - 1) AND 15
3 FOR y% = 100 TO 199
4 y1% = ((1190 / (99 - y%) + r%) AND 15)
5 y2 = 6 / (99 - y%)
6 FOR x% = 0 TO 319
7    PSET (x%, y%), CINT((159 - x%) * y2) AND 15 XOR y1% + 16
8 NEXT x%, y%
_delay 0.0125
goto 2